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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS cynns suee UNDER A LICENSE AND MAY BE USED AND gt hd 
ONLY IN oie WITH THE TERMS oF SUCH LICENSE AND WITH THE 
NCLUSION OF THE oo copra ent NOTICE. THIS SOF Tu WARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeepOkaT ioe T BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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ABSTRACT: THIS ROUTINE CONVERTS A FORMS/CHARACTERISTIC TYPE 
INTO A BINARY VALUE. 

ENVIRONMENT: NATIVE MODE, NON-PRIVILEGED 

AUTHOR: STEVE BECKHARDT, CREATION DATE: 13-FEB-78 

Mee’ ED BY: 


v03 WFO107 GARY FOWLER 21-SEP-1981 
ie logical name used in opening files ee OEY SSHANAGER 


v02 LMKO001 LEN KAWELL 15-F EB-1980 
ADD DE-QUEUE CHARACTERISTICS CONVERSION. 
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RACTERISTICS AaSEp-19ne SSrteste LONG UMS Macse VOtTOCL wanes Pa9e od, 
|, _ «SBTTL CONVERT CLI FORMS AND CHARACTERISTICS 
; FUNCTIONAL DESCRIPTION: 
THESE ROUTINES ARE CALLED TO. CONVERT THE FORMS/CHARACTERISTICS 


THIS WILL CONVERT EITHER A NUMBER DIR sity 
A . ALPHANUMERIC FORMS 


CNVCLIFRM 
v04 
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:* 


ALPHANUMERIC NAMES ARE 

ORED IN FILE SYSSMANAGER: :FORMSTYPE.DAT’’ AND CHARACTERISTICS 
NAMES ARE STORED MANAGER: CHARTYPE. DAT. 

ORNS /CHARACTERISTICS DEFINITIONS IN THE FILE MUST BE IN 
THE FOLLOWING FORM 


THE PERCENT renee THE FIRST CHARACTER IN THE RECORD. 
CALLING SEQUENCE : 

VIA "CALL" INSTRUCTION 
INPUT PARAMETERS: 


4(AP) IS THE ADDRESS OF A QUAD WORD DESCRIPTOR FOR THE TYPE CODE 
8(AP) IS THE ADDRESS OF BYTE TO STORE RESULT(OPTION) 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 


THE CONVERTED FORMS/CHAR TYPE IS RETURNED IN R1 AND AT THE LOCATION 
SPECIFIED IF THE CALL ARGUMENT LIST HAD MORE THAN ONE ARGUMENT. 


; IMPLICIT OUTPUTS: 

CONVERTED VALUE IN R1 
; COMPLETION CODES: 

RO IS SET TRUE OR FALSE DEPENDING UPON SUCCESS OR FAILURE OF CONVERSION 
; SIDE EFFECTS: 

NONE 
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PURE_SECTION  PURE_CLIUTL 
LIBSCNVCLIFORMS:: CONVERT FORMS TYPE 
. WORD encR2 R3,R4,R5,R6,R7_RB, R9 R10,R 
MOVAB FFILN NAM, R6 * z Set Ariss OF FORMS FILE 
BRB CONVERT 
LIBSCNVCLIQCHAR:: ONVERT CHARACTERISTICS TYPE 
RD “M<R2,R3,R4,R5,R6,R7.R8, ao Oe oe RI 


oW 
MOVAB CFILNAM,R6 * ; SET ADDRESS OF CHAR FILENAME 
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41 135 CONVERT: CONVERT TYPE 
(i : FIRST SEE If WE CAN CONVERT A fuse 
04 ¢ 7F 0041 1 BUSHAG a4 CAP) ; POINTER TO TOKEN DESCRIPTOR 
00000000' EF re 4 : CALLS #14, JBSCVT_DECBIN : TRY TO CONVERT IT 
03 50 : 48 BLBC RO ; CONVERS [ON FAILED 
OAC af 140 BRW 60$ ; SUCCESS! VALUE IN R1 
1 162 5$: NUMBER CONVERSION FAILED. TRY LOOKING IT UP _IN FILE 
SA 04 BC 7D : 148 hova a4 (AP) ,R1 TOKEN DESCRIPTOR IN R10,R11 
55 145 ALLOCATE SPACE FOR FAB, RAB, AND UE FERS ON STACK 
Z BO AE 9E 3 146 it -FABSC_BLN(SP) .R? ; R7 POINTS TO FAB 
BC A? o9E 14 HOVAB “RABSC“BLN(R7) -RB 3 4 POINTS TO RAB 
S ir £8 3 5D 148 MOVAB =<RCBFSZ+1>(R85 ,RO ; RO POINTS TO RECORD BUFFER 
SE D 6 149 R9,SP + SET STACK POINTER 
096 134 ; CLEAR FAB AND RAB 
68 0094 8F 00 68 00 ac 065 138 Movcs #0, (RB). WO MRABSC._ BLN+FABSC_BLN, (R8) 
Mite 154 SET VARIOUS FAB FIELDS 
06D 155 Assume FABSB BLN Ed FABSB_B1D+1 
67 5003 8F B80 pep 126 MOVW ABSC_BLNA8>+F ABST C BID. »FABSB_BID(R7) ; BLOCK ID AND LENGTH 
16 a7. 02 90 0072 15 MOVB arAD aH GET,FABSB FACTR/); FILE-A pt SS 
34 A? 86 90 0076 158 MOVB (R6)+,FAB$B_FNS(R7) ; FILE NAME SIZE 
2c A? 66—té«OD*E 007A 139 MOVAB (R6),FABSL_FNA(R7) t FILE NAME ADDRESS 
bore 161 : OPEN FILE 
oo7e 16¢ $OPEN FAB=(R7) 
03 50 &8 087 16 BLBS RO,15$ : SUCCESSFUL OPEN 
0088 431 OOBA 164 10$: BRW 80$ : ERROR (ASSUME FILE NOT FOUND) 
008D 166 15$: SET VARIOUS RAB FIELDS 
08D 16 Assu UME RABSB.B EQ RABSB_BID+1 
68 4401 8F B80 8p 168 ABSe BpLNGB2 RaBSE -81D,RABSB_BID(R8) ; BLOCK ID AND LENGTH 
3C AB «67 —o9E_sO009 16 HOVAB Gar) RABSL RB) : FAB ADDRESS 
1E AB 26000 =o*?9 96 170 MOVB RABSC_SEQ; “PABSB RAC (RB); RECORD ACCESS 
of A8 69 9E OO9A 171 MOVAB {Ros RABSL. UBF (RB) SER BUFFER ADDRESS (ON STACK) 
A VW RC R of ry 3 US 
20 a8 0087 BF BO Ove 7 MO #RCBESZ, tt $2 (RB) ER BUFFER SIZE 
OAS 17% SCONNECT RAB=(R8) 
SF 50 €9 OAD 125 BLBC —-RO, 708 : CONNECT ERROR 
0B 133 20S: READ A LINE FROM FILE 
08 178 GET RAB=(RB) 
5350 €9 089 1 ; BLBC —_-RO, 708 : ERROR (ASSUME END OF FILE) 
OBC 181 GET LENGTH OF RECORD AND STORE A 0 AT THE END (FOR PARSING ROUTINES) 
50 22A 3¢ 1 : hoviuL RABSW_R RsZ 2(R8) ,RO ; RECORD SIZE 
694 4 ( ; CLRB = (RO) CRO WE NOW HAVE AN ASCIZ STRING 
(3-185 1S THIS LINE INTERESTING? (woes IT BEGIN WITH %) 
56 59 20 (3 (1 5 hove ; POINTER TO BUFFER 
2 86 1 C6 1 CMPB ss (RO) +, #*A/2/ 
E512 c9 8 BNEQ 208 : NOT OF INTEREST. GET NEXT LINE 
(B 1 ? NOW GET FIRST roxtn ON LINE AND SEE IF IT MATCHES INPUT SYMBOL 
FF32" 30 O00CB 19 BsBu  CHRSGETOKE ; RETURNS TOKEN DESCRIPTOR IN R3.R4 
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CNVCLIFRM = CONVERT COMMAND INPUT FORMS T 15- SEP=1984 AX/VMS Macro v04-00 Page 
yo4u-000 CONVERT CLI FORMS AND CHARACTERISTICS Hi 1382 $3 78:12 CLIUTL.SRCJCNVCLIFRM.MAR; 1 9 (3) 
0 13 OOCE 19 BEQL 208 ; NULL TOKEN; GET NEXT AINE : 
64 53 B iB nti 138 CAPES R10, (R11) ,#0,R3, (R4) : IT IS CONSIDERED A MATCH IF THE INPUT : 
0 85 0006 194 TSTW = RO : SYMBOL IS AN INITIAL SUBSTRING OF THE | ; 
0D8 195 + TOKEN (RO=0) ; 
D6 12 pA 196 BNEQ 208 : NO MATCH; GET NEXT LINE | ; 
DA 198 HAVE A MATCH. R6 POINTS TO NEXT TOKEN (HOPEFULLY VALUE) | ; 
FF , 39 ODA 199 bsay CHRSGE TOK KEN ; 
me. 4 Bee 39 BEQL 3 NULL TOKEN <--> ERROR | : 
OODF 0¢ HAVE TOKEN. SET UP TO CALL ROUTINE TO CONVERT TO BINARY | : 
7E 53 7D O00F 03 hova R3,-(SP) ; PUT TOKEN DESCRIPTOR ON STACK | ; 
Goes 05 BUILD ARGUMENT LIST ON STACK 3 
6E 7F OOE 06 BUSHAG (SP) POINTER TO TOKEN DESCRIPTOR ; 
Q0000000'EF 01 FB O0E4 307 attics #1,,LIBSCVT_DECBIN CONVERT TO BINARY ; 
8E 7C OO0EB 208 CLRO (SP)+4 REMOVE DESCRIPTOR : 
1F 50) OED QOED 209 BLBC ~—RO, 708 + CONVERSION ERROR | 3 
00OFO 211 50S: SUCCESS RETURN (WITH CLOSE). VALUE IS IN RI | ; 
51 DD O00FO a busHL RI 3 SAVE RI ACROSS CLOSE | ; 
OOF2 21 $cLOSe FAB=(R7) : CLOSE FILE : 
02. BA OOF 314 #OM<RI>D + RESTORE R1 | : 
OOFD 216 60$: ; SUCCESS RETURN (WITHOUT CLOSE). VALUE IS IN R1. ; 
50 00030001 8F DO OOFD 17 MOVL  #CLI$_NORMAL,RO : INDICATE SUCCESS ; 
01 6C D1 0104 218 CMPL (AP) , #1 : STORE IN MEMORY IF MORE THAN ONE ARG F 
16 1B 0107 219 BLEQU : DON'T STORE : 
08 BC 51 90 0109 220 MOVB  R1,a8(AP) : STORE : 
10 11 #0100 221 BRB 90$ : 
010F 32¢ ; 
O10F 223 70$: FAILURE RETURN (WITH CLOSE) : 
O10F 324 $cLOSE FAB=(R7) : CLOSE FILE : 
0118 226 80$: : FAILURE RETURN (WITHOUT CLOSE) | : 
50 00038832 8F 00 O18 327 MOVL #CLI$_VALCNVERR,RO : INDICATE CONVERSION ERROR ; 
04 O11F 309 90$: RET : 
0120 230 F 
9120 331 : 
0120 3 3 
0120 23 END 3 
| ° 
| Py 
| 3 
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Symbol table 46-SEP-1984 25:15:15 CCLIUTL.SRCICNVCLIFRM.MAR;1 (3) 
$$.TMP1 = 00001 
$$.TMP2 = 8 Hf 
CF ILNAM AR Og 
CHRSGE TOKEN eeeeeeee =X 0 
CLIS_NORMAL = ik 1 
CLIS_VALCNVERR = 8 2 
CONVERT 000041 R 02 
FABSB_BID = 000 44 
FABSB_BLN = 00000001 
FABSB_FAC = $ poe 
FAREED = $3eee 
FABSC~BLN = $6090050 
FABSL_FNA = 4 4 4F4 
FABSM_GET = 000000 
FFILNAM 444! R 02 
LIBSCNVCLIFORMS 4444 RG 02 
LIBSCNVCLIQCHAR 00000038 RG 02 
LIBSCVT_DECBIN eeneeere = X 02 
RABS$B_BID = 00000000 
RABSB_BLN = 00000001 
RABS$B_RAC = QOOOO01E 
RABSC_BID = 00000001 
RABSC_BLN = 00000044 
RABSC_SEQ = 00000000 

SL_FAB = 0000003C 

$L_UBF = 4544 C2 
RABSW_RSZ = 00000022 
RABSW_USZ = 00000020 
RCBFSZ = 00000087 
SYSSCLOSE eeeenene GX 02 
SYSSCONNECT eeneeeee GX 02 
SYSSGET weneenee GX 02 
SYSSOPEN eeeeeree GX 02 

$oec@we ree roa sen ane + 
! Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- «ABS . 90000000 ( 0.) 00 (¢ 0.) NOPIC USR CON ABS ~ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 00000000 ( 0.) O1¢ +41.) NOPIC USR CON ABS LCL NOSHR EXE R&D WRT NOVEC BYTE 
PURE _CLIUTL 00000120 ( 288.) 02 ¢(. 2.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
$¢orecescescercewceees creme neces + 
H Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 16 0:00:00.07 0: ‘8 -64 
zonnend processing 1) if :00. é 3: 98. 7 
ass : e : : e 

Symbol table sort p : d- 3: : §°3 
Pass 2 6 : 04 :00:03.70 
Symbol table output 4 8: 0.05 0:00:00.05 
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VAX=-11 Macro Run Statistics $ 4 :15:1 CLIUTL SRE SeNV CLIFRM.MAR;1 (3) 


ec a er ee 


The york ing (33 Limit wee 1200 pages 
e605¢ aytes (53 pages) of virtual memory wit used to buffer the intermediate gore. 
There were 30 pages of symbol table Nag ot a trocatee. to hold 465 non-local ag local symbols. 
source tings were read in Pass 1, produc bject records in Pass 
pages of virtual memory were eal to defines 16 macros. 


tome memes nenean ean eon nea nea } 


! 5 Macro Library statistics ! 


ON OH ee me a em ee a queeseun} 


Macro Library name Macros defined 


“$52 2SDUA 8:CCLIUTL.OBJICLIUTL.MLB;1 1 
$255$DUA28:(SYS.OBJJLIB.MLB;1 

“$255SDUA28: CSYSLISJSTARLET.MLB;2 1 

TOTALS (all Libraries) 1 


590 GETS were required to define 13 macros. 


| 

| 

| 

There were no errors, warnings or information messages. | 
MACRO/LIS=LIS$:CNVCLIFRM/OBJ=OBJ$:CNVCLIFRM MSRCS$:CNVCLIFRM/UPDATE=(ENH$: CNVCLIFRM) *EXECML$/LIB+LIB$:CLIUTL/LIB | 
| 

| 

| 
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